home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip Kasım 2000.iso / prog / share / 11 / setup.exe / %MAINDIR% / DEMOS / CIMAIL / INTMAIL / main.bas < prev    next >
Encoding:
BASIC Source File  |  2000-09-07  |  1.2 KB  |  51 lines
  1. Attribute VB_Name = "MainModule"
  2. Option Explicit
  3.  
  4. '------------------------------------------------------
  5. '<Purpose> singular program entry point
  6. '------------------------------------------------------
  7. Public Sub Main()
  8.     Status.MyCaption = "Internet Mail Status"
  9.     Status.Show
  10.     
  11.     ControlPanel.Show
  12. End Sub
  13.  
  14. '------------------------------------------------------
  15. '<Purpose> singular program exit point
  16. '------------------------------------------------------
  17. Public Sub ExitProc()
  18.     CleanupForms
  19.     
  20.     'don't end if you're a server
  21.     If (App.StartMode = vbSModeStandalone) Then
  22.         End
  23.     End If
  24. End Sub
  25.  
  26. '------------------------------------------------------
  27. '<Purpose> destroy all form objects, important in
  28. ' OLE servers
  29. '------------------------------------------------------
  30. Private Sub CleanupForms()
  31.     Unload AboutBox
  32.     Unload Address
  33.     Unload Addresses
  34.     Unload ControlPanel
  35.     Unload Properties
  36.     Unload Receive
  37.     Unload Send
  38.     Unload Status
  39.     
  40.     Set AboutBox = Nothing
  41.     Set Address = Nothing
  42.     Set Addresses = Nothing
  43.     Set ControlPanel = Nothing
  44.     Set Properties = Nothing
  45.     Set Receive = Nothing
  46.     Set Send = Nothing
  47.     Set Status = Nothing
  48. End Sub
  49.  
  50.  
  51.